home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 001_100 / DISK0013 / DISK0013.ZIP / STARTREK.HOW < prev    next >
Text File  |  1982-03-22  |  6KB  |  121 lines
  1. 50000 REM ===============================================================
  2. 50100 REM =========   Instructions on how to play startrek  =============
  3. 50200 REM ===============================================================
  4. 50300 GOTO 51300
  5. 50400 REM ---------------->>> Simulate sound of t.v. computer
  6. 50500 IF NOISE=0 THEN 51200
  7. 50600 FOR I = 1 TO 50
  8. 50700    J=RND(I)*10000
  9. 50800    IF J<37 THEN 51100
  10. 50900    PLAY "mb"
  11. 51000    SOUND J,.5
  12. 51100 NEXT I
  13. 51200 RETURN
  14. 51300 PRINT "  The galaxy is divided into 64 quadrants with"
  15. 51400 PRINT "  the following coordinates:"
  16. 51500 PRINT "  #   1    2    3    4    5    6    7    8    #"
  17. 51600 FOR I = 1 TO 8
  18. 51700 PRINT "  # |    |    |    |    |    |    |    |    | #";I
  19. 51800 NEXT I
  20. 51900 PRINT : PRINT " Each quadrant is similarly divided into 64 sectors"
  21. 52000 GOSUB 60500
  22. 52100 PRINT "==================>>  DEVICES  <<====================="
  23. 52200 PRINT : PRINT "Warp Engines"
  24. 52300 PRINT "  Course = a real number from 1 to 8.99999.  The course number"
  25. 52400 PRINT "           indicates direction, starting at the right and going"
  26. 52500 PRINT "           counter-clockwise, as depicted below:"
  27. 52600 PRINT
  28. 52700 PRINT "                              3"
  29. 52800 PRINT "                           4  |  2"
  30. 52900 PRINT "                            \ | /"
  31. 53000 PRINT "                         5--- * ---1"
  32. 53100 PRINT "                            / | \"
  33. 53200 PRINT "                          6   |   8"
  34. 53300 PRINT "                              7"
  35. 53400 GOSUB 60500
  36. 53500 PRINT " Warp Factor " : PRINT
  37. 53600 PRINT " Warp Factor = a real number from 0 to 8.  The distance"
  38. 53700 PRINT "               traveled is equal to integer(warp factor)"
  39. 53800 PRINT "               quadrants:"
  40. 53900 PRINT "                 Warp  .2 =  travel 1 sector"
  41. 54000 PRINT "                 Warp  .5 =  travel 4 sectors"
  42. 54100 PRINT "                 Warp  1  =  travel 1 quadrant"
  43. 54200 PRINT "                 Warp  2  =  travel 2 quadrants"
  44. 54300 PRINT "               For example, if you travel from quadrant 1-1"
  45. 54400 PRINT "               sector 1-1, in direction 1 at Warp 2, you would"
  46. 54500 PRINT "               stop at quadrant 1-3,sector 1-1 in the next"
  47. 54600 PRINT "               stardate.
  48. 54700 PRINT "  REMEMBER:    Every use of the warp takes one stardate."
  49. 54800 PRINT "               If the Enterprise is blocked by something during"
  50. 54900 PRINT "               intra-quadrant travel, it will stop in front of "
  51. 55000 PRINT "               blocking object (and waste a stardate) ***"
  52. 55100 PRINT
  53. 55200 GOSUB 60500
  54. 55300 PRINT "===============>>  Short Range Sensors  <<======================"
  55. 55400 PRINT
  56. 55500 PRINT "  The Short Range Sensors of the Enterprise display a detailed "
  57. 55600 PRINT "  view of the quadrant it is currently in.  The Enterprise will "
  58. 55700 PRINT "  be depicted by an -E- at its sector location within the quadrant"
  59. 55800 PRINT "  Klingon battle cruisers are depicted by a -K-"
  60. 55900 PRINT "  Starbases are depicted by a -B-"
  61. 56000 PRINT "  Stars are depicted by a -*-"
  62. 56100 GOSUB 60500
  63. 56200 PRINT "================>>  Long Range Sensors   <<======================"
  64. 56300 PRINT " "
  65. 56400 PRINT "  The Long Range Sensors of the Enterprise are used to display the"
  66. 56500 PRINT "  maps of objects in the nine (9) closest quadrants.  This allows"
  67. 56600 PRINT "  you to see potential Klingon fighter groups and to locate your"
  68. 56700 PRINT "  starbases.   The numbers shown for each quadrant in the long"
  69. 56800 PRINT "  range scan have the following meaning:"
  70. 56900 PRINT " "
  71. 57000 PRINT "     The ones digit indicates the number of stars"
  72. 57100 PRINT "     The tens digit indicates the number of starbases"
  73. 57200 PRINT "     the hundreds digit indicates the number of klingons"
  74. 57300 PRINT
  75. 57400 PRINT "     For example:"
  76. 57500 PRINT
  77. 57600 PRINT "         319 means 3 Klingons, 1 Starbase, and 9 stars"
  78. 57700 PRINT "         206 means 2 Klingons, 0 Starbases, and 6 stars"
  79. 57800 PRINT "           7 means 0 Klingons, 0 Starbases, and 7 stars"
  80. 57900 GOSUB 60500
  81. 58000 PRINT "=====================>>   Phasers   <<==========================="
  82. 58100 PRINT
  83. 58200 PRINT "  Any portion of your available energy can be fired through the "
  84. 58300 PRINT "  phasers.  The battle computer divides the amount of energy you "
  85. 58400 PRINT "  specify amoung the Klingon cruisers in the quadrant and determines"
  86. 58500 PRINT "  the various directions of fire.  The effectiveness of a hit"
  87. 58600 PRINT "  depends mostly on the distance to the target.  A Klingon battle"
  88. 58700 PRINT "  cruiser starts with ";S9;" units of energy.  It can fire an "
  89. 58800 PRINT "  amount equal to whatever energy it has left"
  90. 58900 PRINT
  91. 59000 PRINT "===================>>   Photon  Torpedoes   <<===================="
  92. 59100 PRINT
  93. 59200 PRINT "  Initially the Enterprise has ";P0;" Photon Torpedoes.   One"
  94. 59300 PRINT "  torpedo destroys whatever it hits.  The range of photon torpedoes"
  95. 59400 PRINT "  (like phasers) is limited to the current quadrant.  The course"
  96. 59500 PRINT "  of a photon torpedo is set the same way as that of the Enterprise"
  97. 59600 GOSUB 60500
  98. 59700 PRINT "==================>>  Damage Control Report  <<===================="
  99. 59800 PRINT "  The Damage Control report lists the main devices of the Enterprise"
  100. 59900 PRINT "and their current state of repair.  A negative state of repair"
  101. 60000 PRINT "indicates a disabled device.  Devices can be damaged or repaired"
  102. 60100 PRINT "by a space storm or landing at a starbase.  Also damaged devices"
  103. 60200 PRINT "are repaired 1 unit every stardate."
  104. 60300 GOSUB 60500
  105. 60400 RETURN
  106. 60500 REM =================>> Subroutine to wait for player to hit any key
  107. 60600 LOCATE 1,15
  108. 60700 COLOR 0,7
  109. 60800 PRINT "        Hit any key to continue       "
  110. 60900 COLOR 7,0
  111. 61000 A$=INKEY$: IF A$="" THEN 61000
  112. 61100 X6 = INT(RND*100)+1
  113. 61200 REM =================>> Subroutine to clear screen
  114. 61300 CLS
  115. 61400 LOCATE 5,10
  116. 61500 GOSUB 50400
  117. 61600 RETURN
  118. 0)+1
  119. 61200 REM =================>> Subroutine to clear screen
  120. 61300 CLS
  121. 61400 LOC